home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / ptv2n1.arc / SYSCOM.TXT < prev    next >
Text File  |  1991-03-26  |  784b  |  25 lines
  1.  
  2. /*When it is minimized or restored, all the windows
  3.    in OpenWindows will also be minimized or restored. */
  4.  
  5. Def WM_SYSCOMMAND(self,wp,lp | choice)
  6. {
  7.   WM_SYSCOMMAND(self:ancestor,wp,lp);
  8.   /* last four bits are used internally by */
  9.   /* MS-Windows, so mask them to get       */
  10.   /* the real value:                       */
  11.   choice := wp bitAnd 0xFFF0;
  12.   select
  13.     /* the minimizebox clicked, so iconize all windows in OpenWindows*/
  14.     case choice = 0xF020
  15.        do(OpenWindows,{using(win) show(win,2)})
  16.     endCase
  17.  
  18.     /*icon double-clicked or menu choice Restore is selected,*/
  19.     /*so restore all windows in OpenWindows                         */
  20.     case choice = 0xF120
  21.        do(OpenWindows,{using(win) show(win,1)})
  22.     endCase
  23.   endSelect
  24. }
  25.